home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 61 / 64er_Magazin_Sonderheft_61_19xx_Markt__Technik_de_Side_B.d64 / fussball 3000 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  40 lines
  1. 10 ifa=0thena=1:load"platz",8,1
  2. 20 ifa=1thena=2:load"fussball",8,1
  3. 30 ifa=2thena=3:load"sprites",8,1
  4. 40 ifa=3thena=4:load"position",8,1
  5. 50 ifa=4thena=5:load"kurve",8,1
  6. 60 fori=24832to24879:pokei,0:next:sys11405:sys16974:poke24867,2:poke24868,3
  7. 70 poke53280,0:poke53281,1:print"[147][144]"
  8. 80 input"aenderungen(j/n)";a$:ifa$<>"j"thengoto195
  9. 90 t=8278:a$="speed highbyte":gosub1000
  10. 100 t=8280:a$="speed lowbyte":gosub1000
  11. 110 t=10082:a$="torwart schnelligkeit":gosub1000
  12. 120 t=11339:a$="wechselschnelligkeit1":gosub1000
  13. 125 t=11379:a$="wechselschnelligkeit2":gosub1000
  14. 130 t=11036:a$="zyklenlaenge":gosub1000
  15. 140 t=24930:a$="farbe 1":gosub1000:gosub2000
  16. 145 poke9231,peek(24930)
  17. 150 t=24931:a$="farbe 2":gosub1000:gosub2000
  18. 155 poke9239,peek(24931)
  19. 160 t=9250:a$="farbe am ball 1":gosub1000
  20. 170 t=9258:a$="farbe am ball 2":gosub1000
  21. 172 a$="":input"bis wieviel tore";a$:ifval(a$)=0orval(a$)>9then175
  22. 173 poke11242,val(a$)+48:poke11258,val(a$)+48
  23. 175 a$="":input"neue kurve(j/n)";a$:ifa$="j"theninput"filename";a$:loada$,8,1
  24. 176 a$="":input"prioritaeten";a$:ifa$="n"thengoto179
  25. 177 poke8585,32:poke8586,181:poke8587,34:goto180
  26. 179 poke8585,234:poke8586,234:poke8587,234
  27. 180 a$="":input"mode 1/2";a$:ifval(a$)=0orval(a$)>2then190
  28. 185 poke24875,255*int(val(a$)-1)
  29. 190 a$="":input"bewegen der spieler(j/n)";a$:ifa$="n"thenpoke24873,255:goto70
  30. 191 poke24873,0:goto70
  31. 195 a$="":b$="":input"spieler1";a$:input"spieler2";b$
  32. 196 iflen(a$)>11thena$=left$(a$,11)
  33. 197 iflen(b$)>11thenb$=left$(b$,11)
  34. 198 fori=1tolen(a$):poke36863+i,asc(mid$(a$,i,1))-64:next:poke36863+i,255:q=i
  35. 199 fori=1tolen(b$):poke36863+q+i,asc(mid$(b$,i,1))-64:next:poke36863+q+i,255
  36. 200 poke8774,216-len(a$):sys11461:sys10450:sys8192:poke53276,0:goto70
  37. 1000 printa$:b$="":input"";b$:ifval(b$)=0thenreturn
  38. 1010 poket,val(b$):return
  39. 2000 fori=2to6step2:poket+i,peek(t):next:poke24934,1:return
  40.